[Apple II]
Type=Paste

[Data]

NEW

1  REM  ************************
2  REM   ALTAIR DAY OF WEEK
3  REM  ===================
4  REM
5  REM  ADAPTED FOR THE APPLE II, DEBUGGED, AND SLIGHTLY IMPROVED BY MOOSE O'MALLEY 6-MAR-2002
6  REM
7  REM  ************************
9 DIM N$(7)
10 PRINT "CALCULATE DAY OF THE WEEK FROM A DATE"
12 FOR I=1 TO 7
14 READ N$(I)
16 NEXT I
20 PRINT
30 PRINT "ENTER 0,0,0 TO END PROGRAM"
40 INPUT "ENTER MONTH,DAY,YEAR ";M,D,Y
60 IF M<>0 THEN 100
70 IF D<>0 THEN 100
80 IF Y <>0 THEN 100
90 GOTO 360
100 IF M>2 THEN 130
110 M=M+12 :REM ADJUST INPUT
120 Y=Y-1
130 N=D+2*M+INT(.6*(M+1))+Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+2
140 N=INT((N/7-INT(N/7))*7+.5)
150 N=N+1
160 PRINT N$(N)
170 PRINT
180 GOTO 40
200 DATA "SATURDAY","SUNDAY","MONDAY","TUESDAY"
210 DATA "WEDNESDAY","THURSDAY","FRIDAY"
360 END
